ShiftInteger Subroutine

public subroutine ShiftInteger(gridin, gridout, shifteast, shiftnorth)

Apply a shift togrid_integer. Creates a new grid with xllcorner and yllcorner modified

Arguments

Type IntentOptional Attributes Name
type(grid_integer), intent(in) :: gridin
type(grid_integer), intent(out) :: gridout
real(kind=float), intent(in) :: shifteast

amount of shift in east direction
real(kind=float), intent(in) :: shiftnorth

amount of shift in north direction

Source Code

SUBROUTINE ShiftInteger &
!
(gridin, gridout, shifteast, shiftnorth) 

IMPLICIT NONE

!Arguments with intent in
TYPE (grid_integer), INTENT(IN) :: gridin
REAL (KIND = float), INTENT(IN) :: shifteast  !!amount of shift in east direction
REAL (KIND = float), INTENT(IN) :: shiftnorth  !!amount of shift in north direction

!Arguments with intent(out):
TYPE (grid_integer), INTENT(OUT) :: gridout

!---------------------end of declarations--------------------------------------

CALL NewGrid (gridout, gridin)

gridout = gridin

gridout % xllcorner = gridin % xllcorner + shifteast

gridout % yllcorner = gridin % yllcorner + shiftnorth

RETURN

END SUBROUTINE ShiftInteger